\documentclass[14pt]{memoir}

\usepackage{textcomp}
\usepackage{marvosym}
\def\myEUR{\EURtm}

\usepackage{afterpage}

\usepackage{url}

\usepackage{color}
\definecolor{gray}{rgb}{.5,.5,.5}

\usepackage[pdftex]{graphicx}

\input warmread.sty

\usepackage[all,import,frame,line]{xy}
\xyoption{curve}
% \xyoption{knot}
% \xyoption{poly}

\usepackage[absolute]{textpos}
\setlength{\TPHorizModule}{30mm}
\setlength{\TPVertModule}{\TPHorizModule}
\textblockorigin{0mm}{0mm}

\usepackage[english,greek]{babel}

\settrimmedsize{*}{7in}{1.57079632679}	% pi/2
\settypeblocksize{33\onelineskip}{*}{0.61803}  % golden ratio
\setlength{\trimtop}{0pt}
\setlength{\trimedge}{\stockwidth}
\addtolength{\trimedge}{-\paperwidth}
\addtolength{\trimedge}{-1.5in}
\setlrmargins{*}{*}{2}
\setulmargins{5\onelineskip}{*}{*}
\setheadfoot{3\onelineskip}{3\onelineskip}
\setheaderspaces{\onelineskip}{*}{*}
\setmarginnotes{17pt}{65pt}{\onelineskip}
\checkandfixthelayout

\renewcommand{\chapterheadstart}{\vspace*{\beforechapskip}\selectlanguage{greek}}
\renewcommand{\printchapternum}{\Greeknumeral{\thechapter}}
\renewcommand{\afterchaptertitle}{\selectlanguage{english}\par\nobreak\vskip \afterchapskip}
\copypagestyle{chapter}{plain}
\makeoddfoot{chapter}{}{\textgreek{\greeknumeral{\thepage}}}{}

% From memman chapter 15, based on Elements of Typographical Style

\newlength{\pwlayi}
\setlength{\pwlayi}{\headsep}
\addtolength{\pwlayi}{\topskip}
\addtolength{\pwlayi}{0.3\onelineskip}

\makeatletter
\newcommand{\bringpicr}[1]{%
\setlength{\unitlength}{1pt}%
\begin{picture}(0,0)%
\put(\strip@pt\marginparsep, -\strip@pt\pwlayi){%
\begin{minipage}[t]{\marginparwidth}%
\raggedright\itshape #1%
\end{minipage}}%
\end{picture}%
}
\makeatother

\makeatletter
\newlength{\pwlayii}
\setlength{\pwlayii}{\marginparsep}
\addtolength{\pwlayii}{\marginparwidth}
\newcommand{\bringpicl}[1]{%
\setlength{\unitlength}{1pt}%
\begin{picture}(0,0)%
\put(-\strip@pt\pwlayii, -\strip@pt\pwlayi){%
\begin{minipage}[t]{\marginparwidth}%
\raggedleft\itshape #1%
\end{minipage}}%
\end{picture}%
}
\makeatother

\makepagestyle{sprider}


\makeatletter
\makepsmarks{sprider}{%
\let\@mkboth\markboth
\def\chaptermark##1{\markboth{}{}}
% !!! we want to update the section marks only /after/ a page break !!!
\def\sectionmark##1{\afterpage{\markboth{##1}{##1}}}
}
\makeatother

\makeevenhead{sprider}{\bringpicl{\leftmark}\textgreek{\greeknumeral{\thepage}}}{}{}
\makeoddhead{sprider}{}{}{\textgreek{\greeknumeral{\thepage}}\bringpicr{\rightmark}}

\strictpagechecktrue

\newcommand{\marginsec}[1]{%
\checkoddpage%
\ifoddpage%
    \normalfont\marginpar{\raggedright\itshape #1}%
\else%
    \normalfont\marginpar{\raggedleft\itshape #1}%
\fi}
\setsecheadstyle{\marginsec}
\setsecindent{0pt}
\setaftersecskip{0pt}

\newcommand{\marginsubsec}[1]{%
\checkoddpage%
\ifoddpage%
    \normalfont\marginpar{\small\raggedright\itshape #1}%
\else%
    \normalfont\marginpar{\small\raggedleft\itshape #1}%
\fi}
\setsubsecheadstyle{\marginsubsec}
\setsubsecindent{0pt}
\setbeforesubsecskip{0pt}
\setaftersubsecskip{0pt}

\setlength{\parindent}{0pt}
\setlength{\parskip}{0.5\onelineskip}

\pagestyle{sprider}

\setcounter{maxsecnumdepth}{0}

\newcommand{\Para}{\textsc}
\newcommand{\Aside}[1]{\textit{(#1)}}
\newcommand{\Quote}[2]{`#1'#2}
\newcommand{\Greek}[2]{\textgreek{#1}}



\begin{document}

\frontmatter
\pagestyle{empty}
\thispagestyle{empty}

\cleartoevenpage

\renewcommand{\xyWARMinclude}[1]{\includegraphics[height=10.75in]{#1}}
\WARMprocessEPS{islands}{pdf}{bb}

\begin{textblock}{10}(-.35,0.1)
\begin{xy}
 \xyMarkedImport{}
 
 % Islands
 \xyMarkedPos{1},*++!D!L(1.2)\txt{\textgreek{S'erifos}}
 \xyMarkedPos{2},*+++!U\txt{\textgreek{'Udra}}
 \xyMarkedPos{3},*++!D!L(1.2)\txt{\textgreek{A'igina}}
 \xyMarkedPos{25},*+!DR\txt{\textgreek{P'oros}}
 \xyMarkedPos{26},*+!U(0.2)\txt{\textgreek{K'ea}}
 \xyMarkedPos{27},*++!D(1.1)!R\txt{\textgreek{S'uros}}
 \xyMarkedPos{28},*++++!U!R(0.5)\txt{\textgreek{M'ukonos}}
 \xyMarkedPos{29},*+++!R\txt{\textgreek{D'hlos}}="Delos"
 \xyMarkedPos{30},*\txt{\textgreek{P'aros}}
 \xyMarkedPos{31},*+++++!DR\txt{\textgreek{Santor'inhs}}
 
 % Towns
 \xyMarkedPos{4}="Perdika"
 \xyMarkedPos{5}="Poros"
 \xyMarkedPos{6}="Vourkari"
 \xyMarkedPos{7}="Koressia"
 \xyMarkedPos{8}="Ermoupoli"
 \xyMarkedPos{9}="Ornos"
 \xyMarkedPos{10}="Paros"
 \xyMarkedPos{11}="Oia"
 \xyMarkedPos{12}="Thera"
 \xyMarkedPos{13}="Athinios"
 \xyMarkedPos{14}="Akrotiri"
 \xyMarkedPos{15}="Livadhi"
 \xyMarkedPos{16}="Mandraki"
 \xyMarkedPos{24}="Athens"
 
 % waypoints
 \xyMarkedPos{32}="Poros waypoint"
 \xyMarkedPos{33}="Mandraki waypoint"
 \xyMarkedPos{34}="Perdika waypoint"
 \xyMarkedPos{35}="Athens waypoint"
 \xyMarkedPos{36}="Kea waypoint"
 \xyMarkedPos{37}="Syros waypoint"
 \xyMarkedPos{38}="Paros waypoint"
 \xyMarkedPos{39}="Seriphos waypoint"
 \xyMarkedPos{40}="Santorini waypoint"
 \xyMarkedPos{41}="ChannelA waypoint"
 \xyMarkedPos{42}="ChannelB waypoint"
 \xyMarkedPos{43}="ChannelC waypoint"
 \xyMarkedPos{44}="Poros outer waypoint"
 %
 \xyMarkedPos{45}="North"
 \xyMarkedPos{46}="South"
 \xyMarkedPos{47}="West"
 \xyMarkedPos{48}="East"
 % Towns
 \POS"Perdika",*+!D\txt{\tiny\textgreek{P'erdika}}
 \POS"Vourkari",*++!DL\txt{\tiny\textgreek{Bourk'ari}}
 \POS"Koressia",*++++!R\txt{\tiny\textgreek{Korhss'ia}}
 \POS"Ermoupoli",*++++!L\txt{\tiny\textgreek{Ermo'upolh}}
 \POS"Ornos",*+!UL\txt{\tiny\textgreek{Orn'os}}
 \POS"Oia",*+++!L\txt{\tiny\textgreek{O'ia}}
 \POS"Thera",*+++!L\txt{\tiny\textgreek{J'hra}}
 \POS"Athinios",*+!LU\txt{\tiny\textgreek{Ajini'os}}
 \POS"Akrotiri",*++!R\txt{\tiny\textgreek{Akrwt'iri}}
 \POS"Mandraki",*++!D\txt{\tiny\textgreek{Mandr'aki}}
 \POS"Athens",*++!DL\txt{\textgreek{Aj'hna}}
 
 % Lat & Lon
 \xyMarkedPos{17},*\txt{\tiny\textgreek{\color{gray}23\textdegree A}}
 \xyMarkedPos{18},*\txt{\tiny\textgreek{\color{gray}24\textdegree A}}
 \xyMarkedPos{19},*\txt{\tiny\textgreek{\color{gray}25\textdegree A}}
 \xyMarkedPos{20},*\txt{\tiny\textgreek{\color{gray}26\textdegree A}}
 \xyMarkedPos{21},*\txt{\tiny\textgreek{\color{gray}36\textdegree O}}
 \xyMarkedPos{22},*\txt{\tiny\textgreek{\color{gray}37\textdegree O}}
 \xyMarkedPos{23},*\txt{\tiny\textgreek{\color{gray}38\textdegree O}}
 
 % Routes
 \POS"Athens" \ar @`{"Athens waypoint", "Poros waypoint"} "Poros"
 	|{\mbox{\tiny 9/5}} 
 \POS"Poros" \ar @`{"Poros waypoint"} "Vourkari"
 	|{\mbox{\tiny 9/6}}
 \POS"Vourkari" \ar @`{"Kea waypoint", "Syros waypoint"} "Ermoupoli"
 	|{\mbox{\tiny  9/7}}
 \POS"Ermoupoli" \ar @`{"Syros waypoint"} "Ornos"
 	|{\mbox{\tiny  9/9}}
 \POS"Ornos" \ar @{{}:{}} "Delos"
 \POS"Ornos" \ar @`{"Paros waypoint"} "Paros"
 	|{\mbox{\tiny  9/10}}
 \POS"Paros" \ar 
 	@{*{\dir_{<}}:*{\dir^{>}}}
 	@`{"ChannelC waypoint", "ChannelB waypoint", "ChannelA waypoint","Santorini waypoint"}
 	^>(0.85){\mbox{\tiny  9/11}} 	
	_>(0.45){\mbox{\tiny  9/14}}
	"Athinios"
 \POS"Paros" \ar @`{"Paros waypoint"} "Livadhi"
 	|{\mbox{\tiny  9/15}}
 \POS"Livadhi" \ar @`{"Seriphos waypoint", "Mandraki waypoint"} "Mandraki"
 	|{\mbox{\tiny  9/16}}
 \POS"Mandraki" \ar @`{"Mandraki waypoint", "Poros waypoint"}  "Poros"
 	|>(0.15){\mbox{\tiny 9/18}}
 \POS"Poros" \ar @`{"Poros outer waypoint", "Perdika waypoint"} "Perdika"
 	|>(0.7){\mbox{\tiny 9/19}}
 \POS"Perdika" \ar @`{"Perdika waypoint", "Athens waypoint"} "Athens"
 	|{\mbox{\tiny 9/20}}
 
  % gnomon
 \POS"South" \ar @{{}-*{\dir_{>>}}} "North"
 \POS"West" \ar @{{}-{}} "East"
  
 \POS"North",*+!DL\txt{\Large\textgreek{O}}
 \POS"South",*+!UR\txt{\textgreek{N}}
 \POS"West",*+!DR\txt{\textgreek{D}}
 \POS"East",*+!UL\txt{\textgreek{A}}
  
\end{xy}
\end{textblock}
    
\cleartooddpage

\selectlanguage{english}

\begin{textblock}{10}(.85,0.1)
\begin{xy}
 \xyMarkedImport{}
 
 % Islands
 \xyMarkedPos{1},*++!D!L(1.3)\txt{Serifos}
 \xyMarkedPos{2},*+++!U\txt{Idra}
 \xyMarkedPos{3},*++!D!L(1.2)\txt{\AE gina}
 \xyMarkedPos{25},*+!DR\txt{Poros}
 \xyMarkedPos{26},*+!U(0.3)\txt{Kea}
 \xyMarkedPos{27},*++!DR\txt{Syros}
 \xyMarkedPos{28},*++++!U!R(0.5)\txt{Mykonos}
 \xyMarkedPos{29},*+++!R\txt{Delos}="Delos"
 \xyMarkedPos{30},*\txt{Paros}
 \xyMarkedPos{31},*+++++!DR\txt{Santorini}
 
 % Cities
 \xyMarkedPos{4}="Perdika"
 \xyMarkedPos{5}="Poros"
 \xyMarkedPos{6}="Vourkari"
 \xyMarkedPos{7}="Koressia"
 \xyMarkedPos{8}="Ermoupoli"
 \xyMarkedPos{9}="Ornos"
 \xyMarkedPos{10}="Paros"
 \xyMarkedPos{11}="Oia"
 \xyMarkedPos{12}="Thera"
 \xyMarkedPos{13}="Athinios"
 \xyMarkedPos{14}="Akrotiri"
 \xyMarkedPos{15}="Livadhi"
 \xyMarkedPos{16}="Mandraki"
 \xyMarkedPos{24}="Athens"
 
 % waypoints (for splines)
 \xyMarkedPos{32}="Poros waypoint"
 \xyMarkedPos{33}="Mandraki waypoint"
 \xyMarkedPos{34}="Perdika waypoint"
 \xyMarkedPos{35}="Athens waypoint"
 \xyMarkedPos{36}="Kea waypoint"
 \xyMarkedPos{37}="Syros waypoint"
 \xyMarkedPos{38}="Paros waypoint"
 \xyMarkedPos{39}="Seriphos waypoint"
 \xyMarkedPos{40}="Santorini waypoint"
 \xyMarkedPos{41}="ChannelA waypoint"
 \xyMarkedPos{42}="ChannelB waypoint"
 \xyMarkedPos{43}="ChannelC waypoint"
 \xyMarkedPos{44}="Poros outer waypoint"
 %
 \xyMarkedPos{45}="North"
 \xyMarkedPos{46}="South"
 \xyMarkedPos{47}="West"
 \xyMarkedPos{48}="East"
 
 % LABELS
 
 % Towns
 \POS"Perdika",*+!D\txt{\tiny Perdika}
 \POS"Vourkari",*++!DL\txt{\tiny Vourkari}
 \POS"Koressia",*++++!R\txt{\tiny Kossari}
 \POS"Ermoupoli",*++++!L\txt{\tiny Ermoupoli}
 \POS"Ornos",*+!UL\txt{\tiny Ornos}
 \POS"Oia",*+++!L\txt{\tiny Oi}
 \POS"Thera",*+++!L\txt{\tiny Fir\'a}
 \POS"Athinios",*+!LU\txt{\tiny Athinios}
 \POS"Akrotiri",*++!R\txt{\tiny Akrotiri}
 \POS"Mandraki",*++!D\txt{\tiny Mandraki}
 \POS"Athens",*++!DL\txt{Athens}
 
 % Lat & Lon
 \xyMarkedPos{17},*\txt{\tiny\color{gray}23\textdegree E}
 \xyMarkedPos{18},*\txt{\tiny\color{gray}24\textdegree E}
 \xyMarkedPos{19},*\txt{\tiny\color{gray}25\textdegree E}
 \xyMarkedPos{20},*\txt{\tiny\color{gray}26\textdegree E}
 \xyMarkedPos{21},*\txt{\tiny\color{gray}36\textdegree N}
 \xyMarkedPos{22},*\txt{\tiny\color{gray}37\textdegree N}
 \xyMarkedPos{23},*\txt{\tiny\color{gray}38\textdegree N}
 
 % Routes
 \POS"Athens" \ar @`{"Athens waypoint", "Poros waypoint"} "Poros"
 	|{\mbox{\tiny 9/5}} 
 \POS"Poros" \ar @`{"Poros waypoint"} "Vourkari"
 	|{\mbox{\tiny 9/6}}
 \POS"Vourkari" \ar @`{"Kea waypoint", "Syros waypoint"} "Ermoupoli"
 	|{\mbox{\tiny  9/7}}
 \POS"Ermoupoli" \ar @`{"Syros waypoint"} "Ornos"
 	|{\mbox{\tiny  9/9}}
 \POS"Ornos" \ar @{{}:{}} "Delos"
 \POS"Ornos" \ar @`{"Paros waypoint"} "Paros"
 	|{\mbox{\tiny  9/10}}
 \POS"Paros" \ar 
 	@{*{\dir_{<}}:*{\dir^{>}}}
 	@`{"ChannelC waypoint", "ChannelB waypoint", "ChannelA waypoint","Santorini waypoint"}
 	^>(0.85){\mbox{\tiny  9/11}} 	
	_>(0.45){\mbox{\tiny  9/14}}
	"Athinios"
 \POS"Paros" \ar @`{"Paros waypoint"} "Livadhi"
 	|{\mbox{\tiny  9/15}}
 \POS"Livadhi" \ar @`{"Seriphos waypoint", "Mandraki waypoint"} "Mandraki"
 	|{\mbox{\tiny  9/16}}
 \POS"Mandraki" \ar @`{"Mandraki waypoint", "Poros waypoint"}  "Poros"
 	|>(0.15){\mbox{\tiny 9/18}}
 \POS"Poros" \ar @`{"Poros outer waypoint", "Perdika waypoint"} "Perdika"
 	|>(0.7){\mbox{\tiny 9/19}}
	
 \POS"Perdika" \ar @`{"Perdika waypoint", "Athens waypoint"} "Athens"
 	|{\mbox{\tiny 9/20}}
  % gnomon
 \POS"South" \ar @{{}-*{\dir_{>>}}} "North"
 \POS"West" \ar @{{}-{}} "East"
  
 \POS"North",*+!DL\txt{\Large N}
 \POS"South",*+!UR\txt{S}
 \POS"West",*+!DR\txt{W}
 \POS"East",*+!UL\txt{E}
  
\end{xy}
\end{textblock}

\mainmatter

\end{document}